home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 11
/
64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64
/
programm nr. 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
462b
|
27 lines
100 rem *** programm nr.2 ***
110 :
120 ifz=0thenz=1:load"grafik modul",8,1
130 cls=938:plot=820
140 :
150 x0=160:y0=100 :rem mittelpunkt
160 xr=90 :yr=80 :rem x & y-radius
170 :
180 poke53265,59:poke53272,24:print"[147]"
190 sys cls
200 :
210 forx=xrto0step-1
220 y=sqr(xr*xr-x*x)*yr/xr:y2=y
230 sys plot,x0+x,y0+y
240 sys plot,x0+x,y0-y
250 sys plot,x0-x,y0+y
260 sys plot,x0-x,y0-y
270 y=y-1:ify>y1then230
280 y1=y2
290 nextx
300 :
310 poke198,0:wait198,1:geta$
320 :
330 poke53265,27:poke53272,21
340 end
350 :